home *** CD-ROM | disk | FTP | other *** search
/ The Epic Interactive Enc…lopedia of the Paranormal / The Epic Interactive Encyclopedia of the Paranormal (1997).iso / savcode / cando / searchnext.txt < prev    next >
Text File  |  1992-09-02  |  288b  |  12 lines
  1. ;the text string to search with is "text2search"
  2. ;the documentname is "indexfile"
  3.  
  4. If text2search<>""
  5.     WorkWithDocument "indexfile"
  6.     SetWordDelimiters ","" "";"":""."
  7.     SearchFor text2search,NOCASE 
  8.     
  9.     MoveCursorTo ENDOF LINE 
  10.     Let subject2select=charstobegofline
  11.     Do "SelectSubject"
  12. EndIf